home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / PaperCut Quota / pc-setup.exe / {app} / WebAdmin / Transfer.asp < prev    next >
Text File  |  2005-02-23  |  3KB  |  124 lines
  1. <%@ Language=VBScript %>
  2. <%' (c) Copyright 1999-2004 PaperCut Software Pty. Ltd. %>
  3. <!-- #INCLUDE FILE="includes/PCCommon.inc" -->
  4. <!-- #INCLUDE FILE="includes/header.inc" -->
  5. <%
  6.  
  7.  
  8. Dim objPCWebUsers
  9. Set objPCWebUsers = Server.CreateObject("PCWebAdmin.PCWebUsers")
  10. If objPCWebUsers.Error Then
  11.     WriteErrorMessage objPCWebUsers.ErrorDescription
  12. End If
  13.  
  14.  
  15. Function GetTransferError(intError)
  16.     Dim s
  17.  
  18.     If intError = 0 Then
  19.         ' No error
  20.         s = ""
  21.     ElseIf intError = 1 Then
  22.         s = GetText("ErrorTransUser")
  23.     ElseIf intError = 2 Then
  24.         s = GetText("ErrorTransCredit")
  25.     ElseIf intError = 3 Then
  26.         s = GetText("ErrorTransInvAmount")
  27.     ElseIf intError = 4 Then
  28.         s = GetText("ErrorUnexpectedError")
  29.         s = s & " - " & objPCWebUsers.ErrorDescription
  30.     End If
  31.  
  32.     GetTransferError = s
  33. End Function
  34.  
  35. Dim strTransferTo
  36. strTransferTo = LCase(Trim(Request("txtTransferTo")))
  37. Dim curAmount
  38. If (IsNumeric(Trim(Request("txtAmount")))) then
  39.     curAmount = CCur(Trim(Request("txtAmount")))
  40. End If
  41.  
  42.  
  43.  
  44. If Not gblnIsLoggedIn Then
  45.     WriteErrorMessage GetText("ErrorUserNotLoggedIn")
  46. Else
  47.     objPCWebUsers.SeekUser(gstrLoggedInUser)
  48.     If (UCase(objPCWebUsers.UserName) <> UCase(gstrLoggedInUser)) then
  49.         ' No match.
  50.         WriteErrorMessage GetTextReplace("ErrorCantFindUser", Array(gstrLoggedInUser))
  51.     Else
  52.         ' Transfer
  53.         If Request("blnSubmitted") <> "" Then
  54.             If objPCWebUsers.TransferToUser(strTransferTo, curAmount, Trim(Request("txtComment"))) Then
  55.                 RedirectWithMessage "default.asp", GetText("TransferApplied")
  56.             Else
  57.                 WriteErrorMessage GetText("UnableToTransfer") & " " & GetTransferError(objPCWebUsers.ProcessErrorNo)
  58.             End If
  59.         End If
  60. %>
  61.     <h1><%=GetText("TransferFunds")%></h1>
  62. <%
  63.     ' Find the details of the user
  64. %>
  65.  
  66. <FORM ACTION="Transfer.asp" METHOD="POST" id="transferForm" name="transferForm">
  67. <INPUT type="hidden" name=blnSubmitted value="T">
  68.  
  69. <TABLE class="webAdmin" width="550">
  70. <TR class="evenRow">
  71.     <TH width="35%"><%=GetText("TransferFrom")%>:</TH>
  72.     <TD><%= objPCWebUsers.UserName %></TD>
  73. </TR>
  74. <TR class="oddRow">
  75.     <TH><%=GetText("AvailableFunds")%>:</TH>
  76.     <TD>
  77.         <%
  78.             Response.Write objPCWebUsers.CreditText
  79.  
  80.             If objPCWebUsers.Unrestricted Then
  81.                 Response.Write " (" & GetText("Unrestricted") & ")"
  82.             End If
  83.         %>
  84.     </TD>
  85. </TR>
  86. <TR class="evenRow">
  87.     <TH><%=GetText("AmountToTransfer")%>:</TH>
  88.     <TD>
  89.         <INPUT type="text" size="10" name="txtAmount" value="<%= FormatCredit(0) %>">
  90.    </TD>
  91. </TR>
  92. <TR class="oddRow">
  93.     <TH><%=GetText("TransferToUser")%>:</TH>
  94.     <TD>
  95.         <INPUT type="text" size="20" name="txtTransferTo" value="">
  96.    </TD>
  97. </TR>
  98. <TR class="evenRow">
  99.     <TH><%=GetText("Comment")%>:</TH>
  100.     <TD>
  101.         <INPUT type="text" size="50" name="txtComment" maxlength="255" value="<%=Server.HTMLEncode(Trim(Request("txtComment")))%>">
  102.    </TD>
  103. </TR>
  104.  
  105. <TR class="evenRow">
  106.     <TD align=right colspan=2>
  107.         <INPUT type="submit" value="<%=GetText("Transfer")%>" name=cmdSave>
  108.     </TD>
  109. </TR>
  110.  
  111. </TABLE>
  112. </FORM>
  113.  
  114.  
  115.  
  116. <%
  117.     End If
  118. End If
  119.  
  120. Set objPCWebUsers = Nothing
  121. %>
  122. </CENTER>
  123. <!-- #INCLUDE FILE="includes/footer.inc" -->
  124.